home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / diskop.g < prev    next >
Text File  |  1997-01-14  |  4KB  |  190 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 440 103 ""
  5. wintype 00001000
  6. winout "con:0/11/640/245/Cli-Master Output/auto/close"
  7.  
  8.  
  9. xonload
  10. setscreen diskop.g $cmst_screen
  11. setvar dop_sdrv "DF0:"
  12. setvar dop_ddrv "DF1:"
  13. setvar dop_fsys "ffs"
  14. setvar dop_instarg "ffs"
  15. setvar dop_dcach ""
  16. setvar dop_tcan ""
  17. setvar dop_quck ""
  18. setvar dop_chbb ""
  19. setvar .drvlst "DF0:\n"
  20. ifexists device df1
  21.     append env:.drvlst 'DF1:\n'
  22. endif
  23. ifexists device df2
  24.     append env:.drvlst 'DF2:\n'
  25. endif
  26. ifexists device df3
  27.     append env:.drvlst 'DF3:\n'    
  28. endif
  29. guiopen diskop.g
  30.  
  31. xonopen
  32. lvchange diskop.g 1 env:.drvlst
  33. update diskop.g 3 $dop_sdrv
  34. if $cmst_mode = "format"
  35.     lvclear diskop.g 2
  36.     setgad diskop.g 2 off
  37.     setgad diskop.g 5 on
  38.     setgad diskop.g 6 on
  39.     setgad diskop.g 7 on
  40.     setgad diskop.g 8 on
  41.     setgad diskop.g 9 on
  42.     setgad diskop.g 10 off
  43.     setgad diskop.g 11 on
  44.     setgad diskop.g 12 off
  45.     setgad diskop.g 13 off
  46.     setgad diskop.g 14 off
  47.     update diskop.g 4 "NONE"
  48. endif
  49. if $cmst_mode = "dcopy"
  50.     setgad diskop.g 2 on
  51.     setgad diskop.g 5 on
  52.     setgad diskop.g 6 off
  53.     setgad diskop.g 7 off
  54.     setgad diskop.g 8 off
  55.     setgad diskop.g 9 off
  56.     setgad diskop.g 10 off
  57.     setgad diskop.g 11 off
  58.     setgad diskop.g 12 on
  59.     setgad diskop.g 13 off
  60.     setgad diskop.g 14 off
  61.     lvchange diskop.g 2 env:.drvlst
  62.     update diskop.g 4 $dop_ddrv
  63. endif
  64. if $cmst_mode = "install"
  65.     lvclear diskop.g 2
  66.     setgad diskop.g 2 off
  67.     setgad diskop.g 5 off
  68.     setgad diskop.g 6 on
  69.     setgad diskop.g 7 off
  70.     setgad diskop.g 8 off
  71.     setgad diskop.g 9 off
  72.     setgad diskop.g 10 on
  73.     setgad diskop.g 11 off
  74.     setgad diskop.g 12 off
  75.     setgad diskop.g 13 on
  76.     setgad diskop.g 14 off
  77.     update diskop.g 4 "NONE"
  78. endif
  79. if $cmst_mode = "relab"
  80.     lvclear diskop.g 2
  81.     setgad diskop.g 2 off
  82.     setgad diskop.g 5 on
  83.     setgad diskop.g 6 off
  84.     setgad diskop.g 7 off
  85.     setgad diskop.g 8 off
  86.     setgad diskop.g 9 off
  87.     setgad diskop.g 10 off
  88.     setgad diskop.g 11 off
  89.     setgad diskop.g 12 off
  90.     setgad diskop.g 13 off
  91.     setgad diskop.g 14 on
  92.     update diskop.g 4 "NONE"
  93. endif
  94.  
  95. xonclose
  96. delvar dop_#?
  97. delete env:.drvlst
  98. guiquit diskop.g
  99.  
  100. xonrmb
  101. guiclose diskop.g
  102.  
  103.  
  104. box 0 0 0 0 out button
  105. box 10 8 265 89 in icondrop
  106. box 280 8 148 89 in icondrop
  107. ctext 190 11 " Target " topaz.font 8 2 0 000
  108. ctext 30 11 " Source " topaz.font 8 2 0 000
  109. ctext 105 74 "Disk Name" topaz.font 8 2 0 000
  110.  
  111.  
  112. xlistview 22 15 70 40 "" dop_sdrv env:.drvlst 0 txt
  113. gadid 1
  114. gadfont topaz.font 8 000
  115. update diskop.g 3 $dop_sdrv
  116.  
  117. xlistview 192 15 70 40 "" dop_ddrv env:.drvlst 0 txt
  118. gadid 2
  119. gadfont topaz.font 8 000
  120. update diskop.g 4 $dop_ddrv
  121.  
  122. text 22 51 70 12 $dop_sdrv 6 box
  123. gadtxt center
  124. gadid 3
  125.  
  126. text 192 51 70 12 $dop_ddrv 6 box
  127. gadtxt center
  128. gadid 4
  129.  
  130. xtextin 22 78 240 13 "" dop_nwname "" 30
  131. gadid 5
  132.  
  133. xcheckbox 295 15 26 11 "FFS" dop_fsys "ffs" "" on
  134. gadid 6
  135. gadtitle right
  136. if $dop_fsys = "ffs"
  137.     update diskop.g 10 0
  138.     setvar dop_instarg $dop_fsys
  139. else
  140.     setvar dop_instarg ""
  141. endif
  142.  
  143. xcheckbox 295 31 26 11 "DirCaching" dop_dcach "dircache" "" off
  144. gadid 7
  145. gadtitle right
  146.  
  147. xcheckbox 295 47 26 11 "Trashcan" dop_tcan "" "noicons" on
  148. gadid 8
  149. gadtitle right
  150.  
  151. xcheckbox 295 63 26 11 "Quick" dop_quck "quick" "" off
  152. gadid 9
  153. gadtitle right
  154.  
  155. xcheckbox 295 79 26 11 "Check BB" dop_chbb "check" "" off
  156. gadid 10
  157. gadtitle right
  158. if $dop_chbb = "check"
  159.     update diskop.g 6 0
  160.     setvar dop_instarg $dop_chbb
  161. else
  162.     setvar dop_instarg ""
  163. endif
  164.  
  165. xbutton 93 15 98 12 "Format"
  166. gadid 11
  167. cli 'sys:system/format drive $dop_sdrv name "$dop_nwname" $dop_tcan $dop_fsys $dop_dcach $dop_quck\n'
  168. guiclose diskop.g
  169.  
  170. xbutton 93 27 98 12 "Disk Copy"
  171. gadid 12
  172. cli 'sys:system/diskcopy $dop_sdrv $dop_ddrv name "$dop_nwname"\n'
  173. guiclose diskop.g
  174.  
  175. xbutton 93 39 98 12 "Install"
  176. gadid 13
  177. cli 'c:install drive $dop_sdrv $dop_instarg\n'
  178. delay 100
  179. guiclose diskop.g
  180.  
  181. xbutton 93 51 98 12 "Relabel"
  182. gadid 14
  183. if $dop_nwname = ""
  184.     ezreq "You MUST supply a Volume Name" Okay ""
  185.     stop
  186. endif
  187. cli 'c:relabel drive $dop_sdrv name "$dop_nwname"\n'
  188. guiclose diskop.g
  189.  
  190.